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specific  management  problems.  A  limited  distribution  is  made  — primarily 
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FOREWORD 


The  BESRL  Task,  "Computerized.  Models  for  the  Simulation  of  Policies 
and  Operations  of  the  Personnel  Subsystem--SIMPO-l",  is  conducted  by  the 
Statistical  Research  and  Analysis  Division.  The  Task  constitutes  the 
initial  undertaking  of  an  operations  research  requirement  described  in 
the  Army  Master  Study  Program  under  the  title,  "A  Simulation  Model  of 
Personnel  Operations  (SIMPO) "» and  is  Project  2J050222M711,  "Army  Opera¬ 
tions  Analysis,"  under  the  auspices  of  the  Army  Study  Advisory  Committee. 
Subtasks  include:  a)  Operational  Analysis  of  Personnel  Subsystem; 
b)  Cataloging  and  Integr^lrion  of  Existing  Manpower  Models;  c)  Development 
of  Measures  of  System  Effectiveness;  d)  Development  of  Modeling  Tech¬ 
niques;  e)  Design  and" Programming  of  SIMPO-I;  f)  Application  and  Evalua¬ 
tion  of  Computerised  Models;  and  g)  Problem  Oriented  language  for 
Management. 

The  effort  is  closely  allied  to  the  SRAD  Task,  "Optimization 
Models  for  Manpower  Operations  Research,"  under  Army  Project  2J02k701A752, 
FY  1968  Work  Program.  The  advantage  of  pursuing  the  optimization  and 
simulation  research  in  Juxtaposition  is  that  system  simulation  provides 
the r most  efficient  and  economical  means  of  determining  amount  of  gain 
andAcosts  of  implementing  given  policy  alternatives. 

The  present  publication  reports  on  the  development  of  a  simulation 
model  for  predicting  accession  needs  for  the  Army's  noncareer  personnel 
subsystems.  The  model  developed,  termed  ACCMQD,  is  the  third  dynamic 
flow  model  developed  and  computerized  under  BESRL' s  SIMPO  Task. 


J.  E.  UHIANER,  Director 
U.  S.  Army  Behavioral  Science 
Research  Laboratory 


ACCMQD :  A  SIMPO-I  DYNAMIC  FLOW  MODEL  TO  PROJECT  ENLISTED  ACCESSION  NEEDS 


BRIEF 


Requirement : 

To  develop  a  computerized  simulation  model  of  the  Army's  noncareer 
personnel  subsystem  for  the  purpose  of  predicting  required  accessions, 
and  to  provide  instructions  for  application  of  the  model. 


Research  Product : 

Constraints  associated  with  allowable  sequences  of  assignment  and 
restrictions  on  the  assignment  of  men  nearing  the  end  of  their  term  of 
obligated  service  had  complicated  the  problem  of  projecting  noncareer 
enlisted  input  requirements  two  years  in  advance.  These  projections  were 
made  by  hand  calculation  and  required  many  man  hours  of  work.  DYNAMOD, 
a  flexible  general  simulation  model  of  the  Army's  rotation  system  previ¬ 
ously  developed  by  BESRL,  was  considered  for  use  in  obtaining  the  two-year 
prediction.  However,  a  sufficiently  detailed  data  base  was  not  available, 
nor  was  DYNAMOD  able  to  represent  adequately  sane  important  aspects  of 
the  noncareer  system.  The  need  remained  for  a  model  which  would  more 
feasibly  accommodate  to  the  needs  of  the  noncareer  system. 

ACCMQD,  the  model  developed,  uses  as  data  base  summaries  routinely 
available  from  the  Enlisted  Master  Tape  Record  and  is  capable  of  the 
exact  accounting  of  commitment  duration  necessary  for  predicting  acces¬ 
sions  to  the  noncareer  subsystem.  Like  DYNAMOD  and  DYROM  (a  flow  model 
of  the  career  system),  ACCMOD  uses  mass  flows  between  states.  Losses, 
gains,  and  requirements  are  simulated,  and  shifts  in  state  are  made  at 
each  time  step.  Each  successive  step  is  built  on  the  system  as  it  exists 
at  the  end  of  the  previous  iteration. 


Utilization  of  the  Research  Product : 

The  ACCMOD  model  has  been  used  to  examine  the  effects  of  constraints 
imposed  on  MOS  subsystems  by  management  policy  on  assignment  rotation  and 
by  the  less  than  complete  deployability  of  some  system  members,  with  the 
result  that  some  subsystems  were  found  to  need  more  men  than  expected. 
Since  the  twenty-four  month  projections  are  made  periodically,  the  model 
is  a  useful  tool  to  staff  officers. 


ACCMOD :  A  SIMPO-I  DYNAMIC  FLOW  MODEL  TO  PROJECT  ENLISTED  ACCESSION  NEEDS 


Realistic  estimation  of  the  number  of  soldiers  required  to  fill 
vacancies,  replace  losses,  and  support  desirable  rotation  policies 
while  satisfying  force  commitments  in  many  parts  of  the  world  is  an 
essential — and  difficult --Array  management  task.  When^stimate  of  needed 
additions  is  based  solely  on  the  sum  of  expected  losses  and  planned 
system  enlargement,  it  may  be  impossible  to  maintain  an  acceptable  rota¬ 
tion  policy  and  at  the  same  time  meet  canbat  area  requirements.  Such 
manpower  rotation  constraints  as  stabilized  tours,  information  lag,  and 
restricted  assignments  of  certain  force  members  give  rise  to  requirements 
for  extra  men--requirements  that  become  particularly  critical  when  heavy 
combat  quotas  must  be  met.  If  additional  men  cannot  be  provided  to  the 
subsystem,  then  policy  regarding  the  utilization  of  available  men  must 
be  re-evaluated. 

It  is  not  easy  to  recognize  an  overly  constrained  system  by  exam¬ 
ining  the  projection  of  requirements  for  men  together  with  the  inventory 
of  available  men.  Nor  is  the  evaluation  of  alternative  policy  modifica¬ 
tions  a  straight-forward  process.  What  is  needed  is  sane  method  by  which 
system  projection  can  be  made  in  which  movement  of  men  is  from  area  to 
area,  losses  and  build-up  of  forces  are  simulated,  and  shortages  are 
observed.  Manual  projections  are  too  slow  and  too  beset  by  human  ev  r 
to  be  practical  for  use  in  examining  the  many  personnel  subsystems  ir. 
the  Army.  A  computerized  flow  model  which  projects  the  system  through 
time  is  much  less  prone  to  error  and  saves  valuable  decision  time. 

Several  dynamic  flow  models  have  been  computerized  by  members  of  the 
U.  S.  Army  Behavioral  Science  Research  Laboratory  SIMPO  Task.  Three  of 
these  models  have  had  operational  use  by  Army  and  Defense  staff  agencies: 
(l)  DYNAMOD,  a  flexible  general  model,  which  has  been  used  extensively 
to  model  the  Army  Aviation  system.;  (2)  DYRCM  II,  a  revised  rotation 
model  of  the  career  portion  of  MOS  subsystems;  and  (3)  ACCMOD,  a  model 
for  predicting  accession  needs  for  the  noncareer  subsystems.  All  three 
of  these  models  are  still  under  active  development  and  subject  {'“additions 
or  revision.  In  order  that  they  may  receive  further  use  by  management, 
however,  it  is  necessary  to  furnish  an  explanation  of  the  sequence  and 
function  of  each  model,  and  to  provide  specific  instructions  for  its 
application.  The  present  publication  is  designed  to  so  document  ACCMCHD. 


RESTRAINTS  OF  THE  NONCAREER  SUBSYSTEM 

The  Army  enlisted  system  may  be  conceptually  segmented  into  two 
parts,  the  noncareer  subsystem  made  up  of  men  in  their  first  term  of 
service,  and  the  career  system  composed  of  men  in  later  terms  of  enlist¬ 
ment.  ACCMOD  is  a  model  of  the  noncareer  subsystem  which  corresponds 


roughly  to  the  first  four  enlisted  grades.  In  these  grades  there  are  two 
categories  of  personnel — inductees  who  serve  for  a  total  of  two  years 
with  very  few  passing  into  the  career  subsystem,  and  enlistees  who  serve 
three  years  and  have  a  higher  probability  of  passing  into  the  career  Array. 

The  imput  needed  to  meet  the  requirements  of  the  combat  area  while 
retaining  in  the  system  returnees  from  the  combat  area  who  hive  not  yet 
completed  their  full  period  of  obligated  service  depends  to  some  extent 
on  the  order  in  which  assignment  of  MOB  personnel  to  the  short  tour  is 
effected.  If  recently  acquired  trainees  are  assigned  subsequent  to  the 
assignment  of  all  available  system  members  who  have  not  yet  served  in  the 
short  tour,  fewer  new  men  need  be  accessioned.  If  available  men  already 
in  the  system  are  not  assigned  to  short  tour,  the  chance  that  they  will 
not  serve  in  short  tour  during  their  commitment  is  high  relative  to  that 
for  new  accessions. 

At  the  present  time,  Army  policy  does  not  permit  individual  replace¬ 
ment  to  a  combat  ai'ea  in  the  last  six  months  before  a  man's  scheduled  re¬ 
lease  date.  Thus,  the  inductee  who  spends  two  months  in  basic  Army 
training  and  two  or  three  more  months  in  MGS  school  lias  only  one  year 
during  which  he  may  be  given  a  combat  assignment.  If  lie  was  not  needed 
for  immediate  short  tour  assignment  when  he  completed  his  MGS  school 
training,  he  probably  was  assigned  to  an  area  other  than  combat,  his 
availability  for  short  tour  assignment  having  been  masked  for  several 
months  while  his  records  sifted  through  data  processing  channels.  It  is 
not  feasible  to  reassign  certain  men- -for  example,  it  is  scarcely  prac¬ 
tical  to  assign  a  man  to  a  Job  which  he  mu3t  spend  several  weeks  learning 
to  perform  efficiently,  and  then  replace  him  a  month  or  so  later  with 
another  who  will  have  to  repeat  the  process  of  Job  familiarization.  Thus, 
overall  Army  performance  may  be  adversely  affected  by  attempting  to 
maximize  the  probability  that  all  men  will  serve  hardship  tours.  Accord¬ 
ingly,  it  is  appropriate  to  recognize  that  not  all  men  are  equally  deploy¬ 
able  and  to  make  provision  for  simulating  that  nondeployability. 

In  predicting  the  number  of  new  soldiers  required  for  the  next  two 
years,  responsible  3taff  agencies  have  had  several  sources  of  information 
and  sane  computerized  accounting  methods  to  help  them--raore  recently, 
earlier  versions  of  BESRL's  simulation  models.  However,  the  previous 
methods  did  not  take  into  account  the  problem  of  maintaining  high  eanb&t 
deployment  while  retaining  in  the  system  returnees  from  combat  who'  have 
not  yet  finished  their  term  of  service,  nor  the  effect  of  temporary  non¬ 
deployability.  DYNAMQD  could  handle  both  these  problems  with  slight 
modification,  but  is  not  at  present  capable  of  the  exact  accounting  of 
commitment  duration  necessary  for  the  noncareer  system.  Additionally, 
DYNAMQD  requires  preparation  of  a  fairly  detailed  data  base  which  is  not 
yet  available  for  most  MGS  groups.  ACCMGD  uses  the  rather  gross  data 
base  available  for  sunmaries  routinely  obtained  from  the  Unlisted  Master 
Tape  Record  (EMTR)  and  prepares  the  more  detailed  base  in  the  computer. 
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APPLICATION  OF  ACCMOD 


ACCMOD  data  preparation  follows  procedures  developed  by  members  of  BESRL's 
SIMPO  Task  with  the  assistance  of  the  Capabilities  and  Analysis  Division,  Deputy 
Chief  of  Staff  for  Personnel.  These  procedures  assume  a  uniform  distribution 
01  men  month  by  month  within  the  six -month  or  one -year  interval  provided  by  the 
EMTR  summaries.  They  provide  for  assignment  of  men  to  short  tour  at  any  of 
three  stages:  immediately  after  training  and  post-training  leave,  or  one  year 
later,  or  when  only  one  year  is  left  of  their  commitment. 

After  the  input  data  inventory  has  been  spread  according  to  these  princi¬ 
ples  ,  the  logic  of  the  model  is  applied  to  system  parameters  and  a  forward  pro¬ 
jection  is  made.  These  system  parameters  consist  of  loss  rates  covering  combat 
casualities  in  the  short  tour  and  general  system  attrition  estimated  from  his¬ 
torical  information.  They  include  nondeploynbility  rates  which  reflect  (l)  the 
relative  extent  to  which  a  given  MQS  is  used  within  the  theaters,  (2)  a  gross 
estimate  of  assignment  probability  considering  such  factors  as  stabilised  tours, 
status  report  lag,  and  other  factors  affecting  easy  availability,  and  (3)  hard¬ 
core  low  utility  resulting  from  physical  incapacity,  compassionate  retention  in 
base,  or  similar  reasons.  loss  rates  are  applied  by  dropping  an  appropriate 
number  from  the  system  at  each  iteration.  Since,  in  developing  the  present 
model,  the  mean  loss  rate  was  used,  all  runs  with  the  same  data  and  control 
cards  yield  the  same  results.  The  outcome  estimates  expected  results  over  a 
large  number  of  samples  and  gives  no  indication  of  the  range  of  possible  results 
which  might  lollow  from  random  fluctuations  in  real  system  parameter  values. 

But  decision  whether  to  retain  or  drop  each  man  could  be  made  on  the  basis  of 
generated  randan  numbers,  in  which  case  a  range  of  results  would  be  obtained  and 
repeated  application  of  the  model  would  have  to  be  made  to  estimate  an  average 
result. 

Temporary  nondeplpyability  is  simulated  by  using  as  short  tour  replacements 
only  a  certain  percentage  of  the  men  in  the  assignable  categories.  Permanent 
incapacity  to  serve  in  the  combat  area  is  simulated  by  holding  a  proportion  of 
system  personnel  in  a  category--or  categories --not  used  for  combat  replacements. 
Actual  values  of  the  factors  used  are  parameters  supplied  by  the  user.  The 
portion  of  training  base  output  available  for  short  tour  assignment  can  be 
specified  by  the  program  user  as  a  rate  of  usage  of  trainees.  Thus,  needs  of 
other  areas  for  new  trainees  as  replacements  can  be  taken  into  consideration 
even  though  only  two  tour  areas  (short  tour  and  rotation  base)  are  specifically 
simulated  in  the  model. 

In  obtaining  short  tour  replacement  needs,  the  program  user  also  has  the 
option  of  going  first  to  training  base  output  and  then  to  sustaining  base  or 
preceding  in  the  reverse  order,  interchanging  the  two  sections  of  Operation  24 
of  the  computer  program. 

Data  input  has  been  kept  comparatively  simple,  with  two  control  cards  per 
batch  and  four  data  cards  per  sample  within  the  batch  (group  of  samples  which 
use  the  same  control  cards).  Running  time,  including  a  summary  printout,  is 
about  one-half  minute  per  sample  for  a  twenty-four  month  analysis  on  the 
Control  Data  Corporation  3300*-/  .  The  canputer  program  has  been  coded  in  FORTRAN. 


^  The  commercial  designation  of  the  computer  is  given  to  provide  precise 
information  concerning  the  model  developed.  Use  of  the  trade  name  does 
not  constitute  indorsement  by  BESRL  or  by  the  Army. 


The  Army  noncareer  system  may  be  represented  in  the  simplified  flow 
model  with  links  and  nodes  for  possible  flows  and  delays  (shown  in 
Figure  1).  Delays  at  the  nodes  representing  basic  and  MO G  training  and 
short  tour  are  of  the  same  duration  for  the  two  kinds  of  personnel  con¬ 
sidered  in  ACCMQD,  but  the  stays  in  the  various  categories  in  the  base 
tour  depend  on  the  duration  of  the  individual's  service  commitment.  The 
vectors  and  matrices  shown  in  Figure  2  represent  the  states  through  which 
the  inventory  is  distributed  for  simulation,  with  commitment  and  short 
tour  duration  represented  by  the  dlaensions  of  the  vectors  and  matrices. 
Flows  are  limited  to  those  possible  within  the  separate  AUS  and  RA  sub¬ 
systems,  and  men  are  kept  in  the  subsystem  for  the  duration  of  their 
commitment  or  for  a  lesser  period,  depending  upon  loss  rates  simulated. 
Since  temporary  nondeployability  can  be  simulated  by  holding  back  a 
proportion  of  those  with  no  previous  short  tour  experience,  a  separate 
category  need  not  be  provided  for  those  temporarily  nondeplpyable. 

No  distinction  is  made  between  men  who  are  permanently  nondeployable 
at  entry  into  the  system  and  those  who  become  permanently  nondeployable 
as  they  near  the  end  of  their  service,  since  men  in  the  two  groups  appear 
to  have  the  same  effect  on  system  performance.  A  slightly  elaborated 
conceptualization  of  the  simulated  system  is  shown  in  Figure  ).  Since 
one  purpose  of  the  simulation  is  to  estimate  the  additional  input  needed, 
it  is  necessary  to  simulate  availability  of  additional  men  when  they  are 
required.  The  computer  program  simulates  input  of  additional  men  when 
sufficient  replacements  (or  additions)  for  the  short  tour  are  not  obtain¬ 
able  from  existing  deployable  assets.  This  new  input  is  assumed  ready  for 
imnediate  assignment,  with  training  and  leave  already  accomplished,  factors 
which  would  have  required  induction  or  enlistment  so;ue  months  prior  to  the 
month  for  which  the  system  is  simulated.  At  the  end  of  the  twenty-four 
month  projection,  the  required  gross  input  into  the  MOS  school  is  reposi¬ 
tioned  into  the  month  during  which  the  trainees  would  have  entered  the 
school. 

Since  ACCMQD  represents  an  independent  subsystem,  MOS  losses  taken 
as  percent  of  school  input  not  graduating  may  not  be  losses  to  the  Arny 
as  a  whole.  As  represented  here,  the  model  makes  no  attempt  to  evaluate 
the  overlap  in  losses  and  subsequent  gains  by  other  occupational  sub¬ 
systems  or  to  examine  mass  substitution  which  might  be  made  under  the 
policy  of  mass  fill.  Both  considerations  are  planned  for  an  extension 
of  the  work  started  here  or  in  connection  with  other  models  now  under 
development  in  the  SIMPO  Task. 

The  sequence  of  simulation  steps  covered  in  the  computerization  of 
ACCMQD  is  shown  in  Figure  4,  a  flow  chart  of  the  program  logic  and  deci¬ 
sion  points.  About  two  thirds  of  the  total  program  is  devoted  to  pro¬ 
cessing  and  spreading  the  simplified  data  input  into  a  form  which  can  be 
updated  month  by  month.  Step  4  of  the  flow  chart  indicates  that  this  pro¬ 
cessing  is  done;  the  remainder  of  the  chart  is  devoted  to  the  logic  of  the 
monthly  updating  iteration.  It  is  believed  that  future  use  of  the  model 
will  be  based  upon  the  MOS  starting  inventory  supplied  in  a  different  format 
frcm  that  presently  vised.  If  this  is  the  case,  the  modular  structure  of  the 
program  assures  that  the  first  part  of  the  computer  program  can  be  changed 
to  compensate  for  changes  in  the  form  of  the  data  base  while  the  remaining 
steps  remain  unchanged. 
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RETURNEES 


Figure  1.  Simplified  flow  model  of  the  Army  noncareer  subsystem 


SHORT  TOUR  BASE  TOURS 


1 

DURATION  OF 
SHORT  TOUR 
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Figure  2.  Tour  matrices  and  vectors  used  in  ACCMOD  computer  program 
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Figure  3.  Model  of  the  subsystem  represented  in  ACCMOD 


THE  COMPUTER  PROGRAM 


The  computer  program  for  ACCMGD  has  been  broken  into  a  sequence  of 
operations  and  a  brief  description  of  each  operation  is  supplied.  An 
effort  has  been  made  to  keep  the  explanations  simple  and  meaningful  at 
the  expense  of  elegance  of  expression.  The  same  operation  numbers  used 
here  have  been  inserted  in  the  computer  program  on  comment  cards.  Addi¬ 
tional  explanation  of  the  program  sequence  appears  on  other  comment  cards 
spread  through  the  actual  program. 


Explanation 


1.  Read  controls  1.  Two  cards.  The  first  contains  the  format 

for  reading  the  deployability  factors  for 
new  input;  the  second,  the  estimated 
temporary  nondeplqyability  factor  for 
people  in  the  system  longer  than  a  month. 


1.1  Read  input  data  and  1.1  Four*  cards  (all  data  fields  6  cols,  each) 
sample  parameters  Cd  1:  SAMP  =  MOS  identification 

PAUS  =  percent  AUS  in  inventory 
PAUS1  =  percent  AUS  in  1st  year  service 
PRA1  =  percent  RA  in  1st  year  service 
PRA2  =  percent  RA  in  2d  year  service 
NST  =  total  number  in  short  tour 
NRET(l),  1=1,4:  number  of  returnees 
with  0-6,  6-12,  15-18,  19-24  months 
in  base  tour 

NTOT  =  total  inventory  for  MOS 

Cd  2:  SAMP  =  MOS  identification  (not  read) 
NQUOTN  =  Short  tour  requirements  for 
past  6  months 

NQUOT(l),  I  *  1  to  4 :  short  tour  quota 
for  four  six-month  intervals  in  future 
KAS  =  expected  number  of  short  tour 

casualties  per  month  for  first  6  months 

Cd  5:  SAMP  -  MOS  identification  (not  read) 

INPT(l),  1=1,5;  Scheduled  system  input 
for  past  6  months  and  for  four 
6-month  periods  in  the  next  25  months 
LT  =  duration  of  AIT  school 
RPNDPL  =  rate  of  permanent  nondeploy¬ 
ability 

RCCPL  =  rate  of  course  completion 
JUMP1  =  printer  control:  0  *  only 
summary  sheet  printed;  1  =  monthly 
tour  vectors  printed;  2  =  ST  matrices 
and  monthly  vectors  printed 


♦Shown  as  three  cards  in  Figure  4.  Data  fields  were  changed  to  allow  for 
bigger  numbers  in  some  samples. 
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Cd  U  :  RAMP  -  not  road 

RN  “  Historical  rate  of  usage  of 
new  trainees 

RNl(a)  =  1st  estimate  of  future  rates 
of  usage  of  trainees 
RNl(b )  »  2d  estimate  of  future  rate 
of  usage  of  trainees 


Use  AUS  rute,  1st 
year  AUS  rate,  1st 
and  2d  year  RA  rates 
to  break  total 
inventory  into 
subtotals 


NAIIST  *=  PAUS  »  NTUT 

Total  AUS  is  equal  to  percent  AUS  times 
total  inventory 

NKAT  ^  NTUT  -  NAIIST 

Total  RA  is  system  total  minus  total  Alio 

NAUS1  -  PAUS1  *  NAUST 

AUS  lot  year  men  equals  rate  AUS  times 
total  AUS 

NAUS2  °  NAUST  -  NAUS1 
AUS  2d  year  men  equals  the  remaining 
AUS  men 

NRA1  PKA1  *  NKAT 

RA  1st  year  men  equals  rate  RA  lot  year 
times  total  RA 

NRA2  =»  PRA2  »  NRAT 

RA  2d  year  men  equals  x*nte  RA  2d  year 
times  total  RA 


NKAj 


NRAT  -  NRA.l  -  NRA2 


RA  Jd  year  men  obtained  by  subtracting 
1st  and  2d  year  men  from  total 


Convert  6-month 
scheduled  input  into 
monthly  blocks 


New  (J)  =»  INFT(l)/6 

(in  the  Dec  b'[  analysis,  the  input  to  AIT 
school  was  the  source  of  INPUT.  This  was 
decremented  for  losses  and  AH'  graduation 
rate  then  set  forward  into  the  month  of 
graduation- -historical  information  was 
included  for  one  6-month  period.  ) 


3*  INPT(l),  I  =  1,5:  6-month  blocks  of  scheduled 
input  (In  the  Dec  67  run  INO(l),  tlxe  number 
of  new  trainees  reserved  for  NCO  school 
under  the  new  program  was  subtracted  from 
INPT(l),  since  this  simulation  considers  the 
need  of  the  first  four  enlisted  grades  only. ) 


Operation 

3.1  Calculate  monthly 
quotas  from  the 
6 -month  quotas 
supplied 


4.  Calculate  per¬ 
manently  undeploy - 
able  and  spread  in 
monthly  block 


5.  Spread  returnees 
in  base  tour 


6.  Put  remainder  of  RA 
and  AUS  people  in 
base  tour  in  appro¬ 
priate  month  of 
service 


7*  Compute  ratio  of 
NST  to  sum  of  CONUS 
spread  in  months  2 
and  higher 


8.  Compute  number  in 
ST  for  each  month 
in  commitment 


9.  Spread  row  sums  in 
months  of  time  in 
ST 


Explanation 

3«1  NST  was  accepted  as  the  starting  ST  quota 
and  a  linear  increase  (or  decrease)  was 
made  in  monthly  steps  to  the  first  6 -month 
quota.  The  linear  step  process  was 
repeated  between  the  remaining  6 -month 
quotas . 

4.  RPNDPL*  number  in  each  year  block  from  AUS 
and  RA.  First  year  men  were  spread  in  LL 
months  where  LL  =  12  -  LT  -  2,  since  part  of 
the  1st  year  of  service  is  spent  in  basic  and 
advanced  individual  training  and  these  times 
were  not  included  in  the  simulation. 


5.  Assumption  was  made  that  all  returnees  had 
served  out  a  full  year  in  short  tour  and  had 
had  30  days  leave  before  assignment.  Thus, 
returnees  with  0-6  months  went  into  13-19 
months  in  their  service  duration,  with  7-12 
into  20-25,  and  so  on. 


6.  Sums  of  returnees  and  nondeployables  sub¬ 
tracted  from  appropriate  cells  in  AUS  and 
RA  yearly  totals .  Remainder  spread  in  base 
tours,  IBAUSN  and  IBRAN. 


7.  Sum  IBRAN,  2  to  IRA,  and  IRAUSN,  2  to  LAUS. 
This  sum  was  equal  to  JTCT. 

NST/JTOT  =  R 

Relation  of  short  tour  total  to  assignable 
total 


8.  R* IBRAN  and  R* IBAUSN  were  used  as  the  row 
sums  of  IRA  and  IAUS,  the  RA  and  AUS 
matrices  for  ST. 


9*  In  the  Dec  67  run,  row  suras  for  i  **  2,  13 
were  put  in  positions  1  to  12  for  time  in 
ST  for  IAUS.  14  to  IAUS  went  in  blocks 
starting  at  25  minus  LAUS  and  ending  at  12 
(for  the  IAUS  row). 
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Opei'atlon  Explanation 

For  IRA  a  similar  plan  was  followed.  Row 
sums  2,  1J  went  into  tour  IRA  months  1  to  12; 
sums  14  to  25  into  1  to  12;  sums  26  to  IRA 
into  (37 -IRA)  to  12. 


10.  Put  AUS  and  RA  men 
without  ST  service 
but  nearing  the  end 
of  their  commitment 
in  nondeployable 
category 


10.  In  the  Dec  67  analysis,  men  with  8  or  less 
months  left  to  serve  were  considered  non¬ 
deployable.  These  were  added  to  the  men 
already  in  HJAUS  and  IBRA. 


11.  Test  printer 
control,  JUMP1 


11.  If  JUMP1  >  0,  print  starting  position.  If 
JUMP1  =  0,  print  summary  sheet  headings. 


12.  Start  updating 
loop 


12.  Assets  were  stepped  through  time  in  1-month 
steps  with  casualties  and  losses  taken  at 
each  iteration.  IfT  =  1  to  ITER1  or  2k  + 

Iff  +  1  to  provide  for  having  input  ready 
when  needed. 


15.  Calculate  casualties 
for  all  cells  in  ST 


13.  Number  of  casualties  per  month  wa3  read  in 
as  KAS.  This  was  divided  by  the  number  in 
ST  to  obtain  a  rate  which  was  then  multiplied 
by  each  cell  frequency  in  IAUS  and  IRA, 
results  summed,  and  the  rate  corrected.  The 
casualties  were  then  recalculated  and  dropped 
from  the  system. 


14.  Calculate  losses 
for  all  tours 


14.  .065/year  was  used  as  the  loss  rate  or 

slightly  over  .5#  per  month.  These  losses 
were  taken  from  each  cell  frequency  and 
dropped  from  the  system. 


14.1  Compute  sum  of  those 
ending  commitment 


14.1  Men  in  IAUS  month  for  AUS  and  IRA  month 
for  RA  ended  service.  This  number  was 
computed  before  updating  any  tours. 


15.  Step  cells  forward 
in  nondeployable 
tours 


15.  By  replacing  each  cell  frequency  with  that 
of  the  one  beneath  it,  the  top  frequency 
(IAUS  or  IRA)  was  dropped  from  the  system. 
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Operation 


Explanation 


16. 


Move  all  men  in  9th  16. 
month  before  end  of 
commitment  to  8th 
month  before  end  in 
nondeployable  category 


Before  working  with  IBRAN  and  IBAUSN  tours, 
the  cell  frequency  in  l8  or  J8  was  added  to 
that  in  17  or  J7  for  IBRA  or  IBAUS. 


17.  Update  base  tours 
without  ST  service 


17.  IBRAN  and  IBAUSN  cells  were  steeped  forward. 
First  positions  were  cleared. 


18.  Assign  new  input  to 
IBAUS,  IBAUSN,  IBRA 
and  IBRAN 


18.  RPNDPL*NEW(NT)*RAUS  -  IBAUS (1) 

( 1-RPNDPL)*NEW  (  NT  )*RAUS  =  IBAUSN(l) 
RPNDPL*NEW(NT)-IBAUS(l)  =  IBRA(l) 

NEW(NI )- IBAUS (l)-IBRA(l) -IRA USN(l)  =  IBRAN(l) 


18.1  Update  returnee 
tours  IRETUS  and 
IRETRA 


18.1  When  the  cells  in  these  tours  were  stepped 

forward,  the  men  completing  their  commitments 
were  lost  from  the  system. 


19.  Return  men  who 
have  completed 
short  tour  to 
returnee  tours 


•19.  All  in  IAUS(I,12)  for  1=1,  IAUS-1  were 
returned  to  IRETUS;  those  in  3RA(I,12)  for 
1=1,  LRA-1  to  IRETRA.  Duration  of  service 
was  updated  at  the  same  time.  [To  simulate 
the  policy  of  early  release,  of  men  ending 
service  up  to  3  months  early  at  the  completion 
of  ST,  only  those  in  I  =  1  to  LAUS-4  and 
I  =  1  to  IRA-4  should  be  saved.  This  was 
not  done  in  Dec  67  simulations.] 


20.  Update  columns  of 
IAUS  and  IRA;  set 
1st  row  equal  to 
zero 


20.  If  J  =  I  +  1, 

IAUS ( L, J )  =  IAUS  (L,l)  for  I  =  1,  r  and 
L  =  1  to  IAUS;  and  IRA(M,j)  =  IRA(M,l)  for  1=1, 
12  and  M  =  1  to  IRA.  IAUS  (l,l)  =  0,  for  1=1, 
LAUS  and  IRA(j,l)  =  0  for  J  =  1,  IRA. 


21. %  Update  rows  of 

IAUS  and  IRA;  set 
1st  row  equal  to 
zero 


22.  Compute  number  in 
short  tour 


21.  If  J  =  I  +  1, 

IAUS  ( J,L)  =  IAUS(I,L)  for  1=1,  LAUS-l  and  L  = 
12;  and  IRA(J,M)  =  IRA(I,M)  for  1=1,  IRA-1 
and  M  =  1,  12.  IAUS(l,l)  =  0  and  IRA(l,l)  =  0 
for  I  =  1,  12. 


22.  1ST 


LAUS  12 

Z  Z  IAUS  ( I ,  J  ) 

i=l  J=1 


IRA  12 

+  Z  Z  IRA(I,J) 
i=l  J=1 


23.  Compute  additional 
number  needed  to 
fill  ST  quota 


23.  iquar(Nr)  -  ist  * 

If  this  number  is 
equal  to  zero. 


NEEDS,  the  number  needed, 
negative,  NEEDS  is  set 


24.  Search  for  replace-  24. 
merits  using  IBRAN(2), 
JBAUSN(2)  first;  then 
starting  with  IBRAN 
(mA-8)  and  working 
down  to  IBRAN(lAUS-7); 
then  alternating 
between  IBRAN  and 
IBAUSN  from  IAUS -8 
down  through  month  3 

NOTE:  The  order  of 
search  shown  here 
was  reversed  for 
some  simulations 
and  men  new  to  the 
system  were  used 
after  older  assets. 


Two  nondeployability  factors  are  used  here — 
very  small  for  those  in  month  2  at  first 
assignment  after  training  (l8$  was  used  in 
the  Dec  67  analysis)  and  higher  for  the 
remainder  of  the  cells.  Since  other  assign¬ 
ments  will  have  been  made  when  trainees  are 
not  sent  to  short  tour  directly  after 
completion  of  training  (plus  leave),  a 
second  assignment  is  hindered  by  priority 
of  1st  assignment  received  and  by  system 
inertia  (due  to  lag  in  data  processing, 
man  may  not  be  carried  as  available  for 
assignment  until  3  or  4  months  after 
arrival  at  duty  station). 


24.1  At  each  cell  of 
IBRAN  or  IBAUSN 
which  was  used  to 
meet  NEEDS,  avail¬ 
able  people  were 
transferred  to  the 
same  month  of 
service  and  the 
first  month  of  ST 
in  IRA  or  IAUS. 


24.1  For  example: 

DC  =  ( I-RPNDPL)*X ,  where  x  is  the  number  in 
the  Jth  month  of  IBAUSN. 

IF  (NEEDS-Ix)  a,a,b 

(a)  IBAUS(J)  =  IBAUS(j) -NEEDS 
IAUS (  J,  1 )  =  IAUS(J,1)  +  NEEDS 

NEEDS  =  0 

END  SEARCH  LOOP  (GO  TO  99) 

(b)  IBAUS(J)  =  IBAUS(  j)-Ix 
IAUS ( J , 1 )  =  IAUS(J,1)  +  lx 
NEEDS  =  NEEDS-Ix 

CONTINl'E  SEARCH  LOOP 


25.  Additional  input  re-  25* 
quired  for  short  tour 
is  equal  to  NEEDS. 

Gross  school  input 
required  takes  attrition 
rate  by  school  duration, 
graduation  rate  and  non¬ 
deployability  rate  into 
account . 


Residual  NEEDS  =  additional  repl  for  ST. 

NEEDS/[ ( 1 -RPNDPL )* . 82* ( 1 - . 065/12* ( LT+1 ) )*RCCPL]  = 
total  additional  input  needed. 


26.  Print  results 

according  to  JUMP1. 


26.  When  JUMP1  =  2^ print  ST  matrices. 

When  JUMP1  =  1  or  2^ print  monthly  tour 
vector  and  selected  other  information. 

When  JUMP1  =  0,  print  summary  line  for  month. 
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APPENDIX  A 


ACCMQD  COMPUTER  PROGRAM 


APPENDIX  A-l.  LISTING  OF  ACCMOD  COMPUTER  PROGRAM 


PROGRAM  X69 
C  MCDD  OLSON 

C  THIS  VERSION  OF  ACCMOD  USES  A  SHORT  TOUR  DISTRIBUTION  BASED  ON  THE 
C  OVERALL  DISTRIBUTION  QF  ASSETS  IN  THE  SYSTEM.  REPLACEMENT  SCHEDULES 
C  ARE  KEPT  AS  EVEN  AS  POSSIBLE  UNDER  THIS  ASSUMPTION. 

C  PROGRAM  ACCMOD  OISON 

C  DYNAMIC  FLOW  MODEL  FOR  USE  IN  IROJECTING  NEEDS  FOR  ACCESSIONS  TO  THE  NON- 

C  CAREER  SYSTEM.  MOS  SUBSYSTEMS  ARE  EXAMINED  SEPARATELY. 

C  ORIGINAL  PROGRAM  CODED  NOVEMBER  1967 

DIMENSION  IRA(36,12),  IAUS(24,12),  IBRA(36)  IBAUS(24),  IBRAN(36) 

DIMENSION  IBAUSN?#),  NQUOr(6),  NRET(4),  INPT(6),  IAUSMT(24),  IRAMr(?6) 

DIMENSION  IRETUS(24),  IREIRA(36),  MRAfl2),  MAUS(I2) 

DIMENSION  NEW(?6),  NEEW(}6),  IRET(24),  IQU0T(36),  INO(5) 

'c  OPERATION  1 

READ  500, IFMT ( 1) ,1=1,9) 

500  FORMA T (9A3) _ 

RE AO  501, R  I NDPL 

501  FORMAT (F5.3) 

C  OPERATION  1  ._1 _ _ _ 

101  READ  1  , SATP.PAUS.PaUSi  ,  PR  A  1 ,  PRA2  ,  MS  I  ,  (NRET  ( I)  *  1  =  1,4)  *NTOT  , 

1 (NOUOT ( J) , J=1 .4) ,KAb, <  INPT (K>  »K=1  ,5) , L T , RPNOPL , RLNOPL »RCCPL , JUMP1 , 

_ 2  ( I  NO  ( I. )  <  L  =  2 , 5) _ _ _ 

1  FORMAT (Ab«4F5. 3,1 1  1 3/5X615 »3F5.3, 515) 

IF  ( M  TOT )  102*999, 102 

102  CONTINUE _ , _ 

REAIJ  FMT.RfJ.RNl 

C  OPERATION  2 

C  CALC  ULA  It  NUM  TER  I  isl  AUS  lM  EACH  TIME  PERiOO _ 

NAUST=PAuS«NTOT 
npat=ntot -naust 

NAUS1=PAUS1*NAUST 
NAUS2  =  NAUST  “i'JAUS  1 
LL= 1 0-L  T 
LAUS=22“LT 
"DiA  =  34-L'T 
ITER=24+LT 
XT=LT 

DO  201  1=1 .LAUb 
00  2ul  J=1 , 12 
201  1 AUS ( I , J ) =0 
_DO  2 o2~T=T  , CR A 
00  202  J=1 , 12 
20  2  1RAII.J)=() 

- DO“T3T_T=T7T6  : - 

131  . 1  BRA ( I ) = I 3RAN ( I ) =IB AUsN ( 1 ) = I RAMT ( I ) =NEE W ( I ) =IQU0  T ( I ) =NEW ( I ) =0 
00  132  1=1.24 

132  IBaUS ( I ) =1 AUSM T (I)=l RE TUS(I)=1 RET (I)=0 
00  133  1=1,30 

_ 133  NEW  ( I )  =0 _ _ _ _ 

C  OPERATION  3 

C  CONVERTS  SIX  MUNTH  SCHEDULED  INPUT  TO  MONTHLY  BASIS 

_ 1NU ( 1 ) =0 _ 

00  53  1=1,5 
Y  =  1NP  r ( I ) - I  NO ( 1 ) 

XN=Y/6. 

x  =  0 

N  =  0 

_ 1  TEM=0 _ _ _ . _ 

J=tj*l 
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pksckoino  faok  blank 


K= J-5.  •  - 

L)0  54  1 1 =K »  J 
X=X»XN-N 

_ NEwj  1 1 )  =  X _ 

N=NtW (II) 

54  ITtrt=ITEM*NEW<II) 

_ XJtH-  I  TEM _ 

1K=t-xiem*.5 
53  NEw( J) =NEW(J) ♦  IK 

_ UP  123  1=1, ITER _ 

J=I*6-LT 

123  NEw ( I) =NEw ( J) 

_ UP  124  1=1,1  TEH _ 

X=NtW ( I > 

X  =  X*M1  .-XT*. 065/12.) 

_ X  =  XORCCPL*,5 _ 

124  NEW ( I ) =  X 

1 T  ER 1  =  1 T  E  R ♦ l 

_ 1  TEKo  =  1 TER  +  6 _ 

UP  505  1  =  1  I  Eh 1 ♦ I TERb 
505  NEw  1 1 ) =NE<M  ITER) 

C  OPERA T  ION  _3 .J _ 

C  CALCULATE  MONT  hL  Y  UUOTAS  (LAST  12  ARE  StT  EQUAL  TO  THE  24TH). 
X=NOUOT (1) 

_ XS  T -IMS  T _ _ _ _ 

XN= (X-XST) /6. 

10U0T(1)=X|\|*.5*XST 

_ UP  120  1=2,5 _ 

J=l-1 

X=IOUOT(J) 

120  1QU0  T (1)=X*XN»«5 _ 

UO  121  1  =  1 ,4 

J=b*  I 

121  1QUU  T  1  J)  =  Nl)UOT  ( JJ _ 

OP'  122  1=2,4 

11=1-1 

_ J=b»I~l _ _ _ _ 

K=6*I-5 
X=NOJOT ( 1 ) 

Y=NOUOT ( I l ) 

XN=(X-y7/6. 

PO  122  IM=K»J 
JN=IM-1 
X=lUOOT  ( JN) 

122  10U0T ( I M ) =X+XN 
UO  502  1=25,36 

502  1QU0T ( I ) =1QU0T (24) 

C  OPERATION  4 

C  CALCULATE  PERMANENT  NONUEPLO YaULES  AND  SPREAD  IN  bASE 

^RaXTST=T<  P  vUPU*  n5D  ST - 

XNAUS2  =  RPNDPL»iMAUS2 
XN=XN4US1/LL 

x=o 

N=0 

_ 1  T  EM=0 _ 

L1=LL-1 
UO  2  1=1, LI 
X  =  X ♦ XN-N 
IBAUS ( I ) =X 
N=IbAUS( 1) 

_ 2  1TEM=1TEM,IBAUS(I) _ _ 

XTEM  = I TEM 
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1BAUS  (LL)  =XNAUSl-X  T EM,  .>} 

LL 1 =LL  ♦  1 
L  S 1 =L AUS- 1 

_ XN=XNAUS2/lj? _ 

X  =  0 
N  =  0 

_ UtM  =  0 _ 

UO  3  I=LL1*LS1 
X=X ♦ XN-N 

_ 1BAUS  (  I  )  =  X  _ _ _ 

N=IbAUS( I) 

3  11EM=ITEM*1BAUS<1> 

_ X  T  t.M  =  I  TEM  _ 

lb  AUS  (LAOS)  =XNAUS2-XTEM*.5 
C  CALCULATE  NUM-iER  IiM  HA  E O'?  EACH  TIME  PERIOD 

_ NRAl=PRAl»NRAT _ 

nra2=pra2»nrat 
NRa3=nRAT -NKa1-NRA2 

_ X  =  NHA 1 _ 

Y=NAUS1 

If  (  X  *  Y )  143*  143. 190 

143  RAUS=P4US _ 

GO  TO  191 
190  H AUS=Y /  l  X  ♦  Y  ) 

_ 191  CONTINUE _ 

C  CALCULATE  NO'OEPLOYAHLES  TN  HA  ANU  SPHtAU  I IM  BASE 
XNhA1=HPNJPL*NHA1 

_  XNHA2=RPN.)PL«NRA2 _ 

X  N  Ha  3  =  RP“n  J  P  L  '•>  N  HA  3 
XN  =  X''JHA1  /LL 

_ XfO _ _ _ 

N  =  0 

1 TfcM=0 
00  4  1=1, LI 
X  =  X ♦ XN-N 

ibha  < i ) =x 

N= I BRA  ( I ) 

4  1TEM=1TE^*I8HA  (I) 

XTEM=I TEM 

IBHA (LL) =XNRai-XT£M».s 
XN=XNRA?/12 
X  =  0 
N=0 

ITERso - 

LR1 =LAUS- 1 
00  B  1 =LL 1 , LH 1 

- XsX^XN-N - 

1  BRA ( I ) =X 
N=1BHA(1) 

5  HtM=  1  TE«*  IBHA  ( I ) 

X  TEM= ITEM 

_ IBRA (L AUS) =XNRA?-X  TEM* ,5 _ _ _ 

XN=XNRA3/12. 

X=0 

N  =  0 _  _  _  _  _ 


130  ntH=llLN*lHHfl||) 

XT  EM  = I  1  Em 

IBRA(LKA)  =XNHA3-XlEM* .S 

x  OPERATION  5 _ 

C  SPREAD  t  T  URNEES  l  ^  AUS  A  ll)  K  A  TOURS 
1)0  6  1  =  1*4 

_ Y=NKtim _ _ _ 

AN=Y/S. 

1 1 EM=0 

_ J=i«6  __  _  _ 

K  =  J-S 

x  =  0 

_ Nap _ _ 

00  7  ll=A.J 
X  =  X*  XN-N 

_ IRE  T  (II  L=  X  _ 

N=  1  WE  1  (ID 

7  ITErt=lTEM»IR£Tt II) 

_ XTEM= 1 TEM _ 

XRE  1  =  l  HE  I  (J) 

6  IRET  I J)=XREDY-XT£M*.S 

_ 00  8  1  =  1  4  <  L  AQS _ 

K=l-13 

IRtVUSm  =RAUS<*TRE  f  (K> 

_ 8 _ LhU-SAiULs  l  H£TliU-lH£.TOSII) _ 

00  9  1=1*13 

9  1REUIS<I)=1«ETRA(I)=0 

_ sJL=LAU.5aJL _ _ 

DO  10  1 = J  *  36 
A=l-13 

_ 10  IRE TRA ( 1) =  lRtT <K ) _ 

J=3  7-LT 
1X  =  0 

00  11  I = J ♦ 36 
Fx=lX+IRETRA ( 1 ) 

11  IRE l RA ( I ) =o 

_ IRE TRA (LRA ) = I  X  » IRE  T  (24) _ 

JTEM=1TEm=0 
00  12  1=1. LL 

_ JTEM=JTEH*1i3AUS(  I)  ♦IRrTUS(l) _ 

12  lTtM=IT£M»ltJKA  ( I  >  *IRE  TRA  <  1 ) 
IDAUS1=NAUS1-JIEM 

_ 10RA 1  =NR A  1  -  I  [IEM  _ _ 

JTEM=[TEM=0 
00  13  1=LL1*LA0S 

JTEM=JTEM*1BAUS<I)*IRPTUS(D  _ 

13  IT  EM= IT E  M  + IriRA ( l ) ♦ IRE (RAT  I > 
IDAUS2=NAUS2-JTEM 
10RA2=NRA2- 1 TEM 

LAOS  1  =L  A0?v»\ 

I  TEM  =  0 

00  14  I=LA0S1,LRA 

14  T  T  E  M  =  I  T  E  M  *1  b  R  A  (  I  )  ♦  IRE  TRA  ID 
C  0RERAT10N  6 

C  COMPUTE  REMAINING  ASSETS. 
iliR  A3=MH  A3- 1  TEM 

C  ASSIGN  AUS  SC3U0L  OUTPUT  TO  LEAVE  CATEGORY. 
IHAUSN ( 1 ) =R4US»NEw  (  l ) 

"  C  0 1 S YTTl BUYtT’TftM  a 1  NOt R  IN  monthly  CELLS. 

X1=10AUS1-IBAUSN(1) 

_ X  =  0 _ 

NsO 
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I Tf  M=0 

AN  =  X  1 /L 1 
00  lb  1=2,1. 1 

A=XN*X-N  _ 

FhauSn  (  l )  =  a 

N= 1 UAUSN ( I > 

15  ITEMa  1  r  Ei» 1BAUSN  (  1 ) _ 

XTtM  =  ITEM 

IBAUSN(LL) aXl-XTEM+.b 
A1  =  U)AJS2 
X  =  0 
N  =  0 

ntM=o 

XFJaJfXTI? 

UO  16  1 =LL 1 , L AOS 
X=XN ♦ X-N 
lhrtUb'N  (  1  )  =  X 
N=  I b AUbN ( I ) 

16  lTt.M=tTLM>lMAUSN(l) _ 

XltMallEM* 

iK=xi-xrEH*.5 

IBAUSN ( L  A JS) = IBAUSN (LaUS ) ♦  IK _ 

C  A  S  S  1  0  N  K A  SCHOOL  OUIPOI  TO  LEAVE  LA  ttUORY. 
1BRAN  (  l )  =NtM  ( 1  )  -  IBAUSm  ( 1 ) 

_ X  1  a  1  UR  A  1_-_1  BrlAN  ( 1 ) _ 

X  =  0 
N  =  0 

_ 1  TEM=0 _ f _ 

XNaXl/Ll 
UO  IB  1 =2  ,L 1 

_ X=XN»X-N  _ _ _ 

1BRAN ( I ) =X 
N= IBRAN ( 1 ) 

IB  1 I£m= 1  TEN, 1BKAN ( 1 ) 

XI EM= l ILM 

1 8R  AN ( LL ) =Xl-XTtM,.b 

_ Xl=lORA2 _ 

X  =  0 
N=0 
1 TtM  =  0 

— XN'aTlTI? - 

00  19  1=LL1 ,L AUS 
X  =  X*  XN-N 
rSTfXNTD^X 
N= IdRAN ( 1 ) 

19  lTtM=lTEM,lBRAN(I)  _ 

nrMaiTEM - 

IK  =  X 1 -X  TE  M* .5 

lHRAN(LAOS)  = IDRAN (LAUS )  *IK 
X1=10RA3 
x  =  0 

_ N  =  0 _ 

1  1 1  IT  =  0 

LAUS1=LAUS*1 

_ X  N  =  X1  /J_2_ _ . _ 

UO  20  l =L AuS 1 , LR A 
X=X*XN-N 

_ IBRAN ( I ) =X _ 

N= IdRAN ( 1 ) 

20  1TEM=ITEM*IBRAN(I) 

_ XJEM  =  I  TEM _ _ _ _ _ _ 

”1K=X1-XTEM*.5 
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I8KAn(LRA)  = IMRAN (LRA)  ♦  I K 
1TEM=0 

C  OPERATION  7 

C  COMPUJE  ASSETS  IN  POSSIBLE?  SI  MONTHS. _ 

00  22  I =2 ♦ LAOS 

22  1 TEM  =  I T  E  M  *  1 BAUSN ( I ) 

_ JTEM=Q _ 

00  23  I =2. LRA 

23  JTEM=JTEMUBRAN(1) 

_ JTUT-ITEM»JTEM _ ___ 

c  compute  assignment  ha r io. 

w.-riST 

_ Y=JTOT _ _ 

IF ( J  TOT ) 140*  140.141 
141  CONTINUE 

_ R  =  X/Y _ _ 

C  OPERATION  8 

C  PUT  ALS  AND  RA  MEN  IN  Sf  ROW  TOTALS.  (IaUSMT  AND  IRAMT) 
_ 00  24  1 =2 » L AUS _ 

24  IAUSMT ( 1 ) = ( R* IBAUSN ( I ) ♦ .5 ) 

00  25  1=2. LRA 

_ 25  IRAMT ( 1)=<H»1BRaN(I)».5) _ 

IRAMT ( 1 ) =0 
IAUSMT ( 1) =0 

_ DO  147  1  =  1. LAUS _ 

IBAUSN (I) = 1 BAUSN ( I ) -I AUSM \ ( I ) 

IF ( IBAUSN ( 1) ) 148. 147.147 

148  IBAUSN  ( I )  = 0 _ _ _ 

147  CONTINUE 

DO  189  1=1. LHA 

_ IBRAN  (  I )  =IBK  AN(I)-lRAMTd) _ 

IF  ( 18RAN(  1 )  J  U9, 189, 189 

149  1BRAN(I)=0 

189  CONTINUE _ 

1 1 =L AUS- 1 
III =LAUS+ 1 

_ 1 6  =  L AUS-8 _ 

17=LAUS-7 

I8=LAUS-8 

19=LAUS-9 _ 

J1=LRA-1 
JJ1=LRA* 1 

_ J6  =LR  A-b _ ; _ 

J7=LRA-7 
J8=LRA-8 
J9=LRA-9 
C  OPERATION  9 

C  SPREADS  MONTHLY  TOTALS  THROUGH  IAUS  MATRIX 
00  230  1=1,12 

- J=PT 

IAUS(J.l) =1AUSMT (J> 

230  IRA ( J. I ) =IHAMT ( J) 

K=25“L AUS 

00  231  1=14, LAUS 

_ K  =  K* 1 _ 

231  1 AUS (I,K)=IAUSMT(I) 

DO  232  1=14,25 

_ K=  I -JJ _ 

232  IRA ( I , K) = IRAMT ( I ) 

K=37-LRA 

_ 00  233  1=26, LRA _ 

N=K ♦ 1 . 
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233  lRA<l.K)  =  tKArtTU) 

00  30  1  =  1.  12 

38  MRA ( I ) =  MAUS ( I ) =0 

00 _39  1  =  1.12  _ _  _ _ 

00  39  J  =  1  .1  A  US 

39  MAUSll>=MAUSll>  ♦lAUSlj.I) 

00  52  1=1.12 

00  52  J=f,LKA 
52  MRA ( I ) =  MRa t 1 ) ♦ IRA ( J, I ) 

C  OPERATION  10 

C  PUT  ACS  AIMO  R A  MtN~ nEahTNg  TmEFFTENd  0F"51;r Y I C  E  TU  NONOtPLUTAbLC- C A TEGOrY ) 
J=L AOS- 7 
00  17  I=J,LAUS 
IHAU'i  (1  )  =TbA'JS  l  I  )  ♦  ibAilSN  ( I  > 

17  IBAUSN (11=0 

_ J=LRA-7  _ 

00  21  I=J.LRA 

IBRA ( I )  =  13RA ( I ) ♦ I  BRAN ( I  1 

_ 21  IHkan  ( I)  =0 _ 

JSf =NST 

C  OPERATION  11 

C  TEST  PRINTER  CONTROL  — J0MP1— IF  GT  0  PRINT  STARTING  0 1  SI  R  I8UT  ION . 

IF(JUmPI) 139, 139. I 3H 
138  PRINT  314, SAMP 

314  F  ORMA  T  ( 8H1  MOS  AS.  2Qrt  STARTING  POSITION _ 1 _ 

PRINT  302 

PRINT  30  3,1  1  I  AOS  1  I, J) , J=1 , 12> , 1  =  1 .LAOS) 

_ PR  IN  T  303.  1  MAPS  1 1 )  .  1  =  1 .12) _ ; _ _ _ 

PRINT  304 

PRINT  303, ( ( IRA( I, J) ,  1=1,12) , 1  =  1, LRA> 

_ PRINT  303. (MRA ( I ), 1  =  1 , 12) _ 

PRINT  30S 

PRINT  303, (IRETUSlD , [=1, LAOS) 

PRINT  306 

PRINT  303,  1  IRETRA  t  P  , I =1,LRA) 

PRINT  307 

PRINT  303. 1 IBAUSN(I) , l=l,LAUS) 

PRINT  308 

PRINT  303, ( IBRAN1 I) , Irl.LRA) 

PRINT  309 

pmm  ^03^tth aus  i  r v  rr=  itua 0’S') - 

PRINT  310 

PR  1 N I  303, (IBRA(I) ,1  =  1, LRA) 

- prn^TTTs - 

315  FORMAT (25ROSCHEOOLEO  MONTHLY  INPUT  ) 

PRINT  303. (NEW ( I ) ,1=1,24) 

PRTNT'~3T5 - 

316  FORMA T(32HOMONTHLY  UUOTAS  FOR  SHORT  TOUR  ) 

PRINT  303, ( IQUOT (I) , 1=1 ,24) 


c“T>  printer  cjntRol  =o  prT\Tt  Summary- SheeTT hFaUTngs.  ' 

139  CONTINJE 

_  IF (JUMP1 ) 319,318,319 


318  PRINT  31 1 , SAMP 

311  FORMAT (1  CHI  MOS 

PRINT  312 

A5) 

312  FORMAT (130H0 

OTH 

ENO 

SCHD 

1  PERM 

IN 

W/0 

SYST 

ST 

AIT 

2  MODEL  ) 

PRINT  323 

323  F ORMA  T ( 1 30H  MONTH 

CAS 

ATTN 

TERM 

INPT 

1  NUPL  RET 

ST 

ST 

TOT 

INPT 

INPT 

2  IMP!  ) 


-  23  - 


319  CONI  1 NUt 
C  OPERAT  ION  12 

C  GtGIN  UPDATING  LOOP . HEN  1 =24 *LT ♦ 1 . (  WO  YEARS  PLUS  AIT  SCHOOL  AND  LEAVE. 

00  100  N1 =1 » I TER1 
C  OPERATION  13 

C  CASUAL  I  1ES  TAKEN  FROM  SHORT  TOUR 
XST  =  NST 


X=KAS 

RKAS=X/XST 

_ NKAS=0 _ 

1)0  234  1=1  .LAOS 
00  234  J  =  1  ,  12 

_ X=1 AUS  (  I ,  J) _ _ 

1X=  1  X*RKaS* .5) 

234  NKAS=NKAS*IX 

_ 00  235  1  =  1, LRA _ 

00  235  J  =  1  *  1 2 
X  =  IRA (  I  ,  J) 

_ 1X=(X»RKAS*,5) _ i _ 

235  NK AS=NK AS* 1 X 
X=KAS 

_ L=MA$ _ _ _ 

RKAS=RKAS*X/Y 
NKAS=0 

■C,AFT£R  FIR  S  T_  b  ITERATIONS  _THE^  CASUALTY  RATE  AND  the  RATE  OF  USAGE  FOR  NEK  PE 

C  NNEL  ARE  BEING  CHANGED 
IFtNT-7) 135,136,135 

_ 136  RftAS=l  .1JL3KAS. _ _ _ _ 

RN=HN1 

135  CONTINUE 

_ DO  203  1  =  1  ,  L  AIJS _ _ _ ; _ '  ' 

00  203  J  =  1  ,  1 2 
X  =  IAIJS(I  ,J) 

_ 1X=  (  <°  R  K  A  S*  «  5 ) _ _ _ _ _ 

I AUS (1 ,J) -IAUS1I*J)“IX  ... 

203  NKAS=NKAS*IX 

_ 00  204  1  =  1 j L R A _ ' _ _ 

00  204  J=l ,12 
X= IRA ( I , J) 

I  X= ( X^HKAS* .5) 


1RA(I,J)=IRA(1,J)-IX 
204  NKAS=NKAS*IX 
C  OPERA! ION  14 


c  losses  taken  from  all  tours 
NL  =  0 

_ RL5_.  0  65/12. _ 

00  206  1=1 ,LAUS 
X=1BAUS( I) 

IX=  (X*RL*.S) 


1HAUS  (  I) = I HAUS ( I )  —  I  X 
NL=NL ♦ I  X 
X=I UAUSN ( I ) 


X=(X<>RL*.5)  / 

IBAUSN(I) =IBAUSN(I)-Ix 
nl=nl*ix 


X= IRE1 US ( I ) 

1X=(X«RL*.5> 

lRETUS(I)3lRETUSm-IX 


■  4.. 

r  if*  -•<*  r 


'’“I®*" 


1  AUS  (  I  i  J )  =  1 AUS  ( I  ♦  J>  **  I  X 


206  NL  =  NL  ♦  1  X 

UO  207  I  =  |  »  LR  A 
X=1HRA ( 1 ) 

1X=Tx*RL* *5) 
1BRA(1)  =  HRA(I)-IX 


_ _NL=NL«IX _  _ 

X=1BRAN( 1) 

1X= (X*RL».5> 

_ lBtfANm=IbRAN(I)-lX 

NL  =  NL  ♦  I  X 
X= 1  RE  TRA ( I ) 

1X=(X*RL».5)  _ 

TR£1  R  A  U  f » 1  RE  TMa  <  I )  —  1  x 

NL=NL» IX 
UO  20  7  J=1.12 

x'=Tra(1,j) 

IX=U*RL*.5) 

_ _ 1  RA  <  1  .  JJ  =  I  MA  (  I  *  J)  -  1  X _ _ 

2u7  NL  =NL ♦ I  X 
C  ORERAT ION  1  A • 1 

_ IQUT  =  13AJS(LAUS)  ♦  IRE  TtjS  (LAPS)  ♦IBRA(LRA)  ♦IRETRA(LRA) 

UO  506  1=1*12 

50b  10U1 =1 JUI *IRA(LRA, I) *IAUS(LAUS* I) 

C  OPERATION  15 _ _ _ _ _ 

C  UROAUNb  BASE  TOURS 
I  1  =L  AtJS- 1 

_ I  tj=L  A  U  S  ♦  J _ 

lb=LAUS-6 
I  7=LAUS- 7 
18=LAUS-8 
f9=LAUS-9 
1 1 0=L AUS- 1 0 


J 1 =LRA-1 
J J 1 =  LR  A  ♦ 1 
Jb  =LRA-6 
J7=LRA-7 
■Jfi=URA^3-' 


J9=LRA-9 
UO  55  1=1.11 


J=I  IT-I - - - 

K=J-1 

55  IBAUS(J) =IBAUS(K) 

- C  DPER  A  TTON  16 - - - - 

C  SHIFT  men  H  MONTHS  FROM  RfLEASE  TO  NONUERLOVaBLE. 
IBAUSU  7)  =  IBAUS  (17)  *IHAUSN(  18) 

TB7«JWlTST=U - — - 

C  OPERATION  1 7 

UO  56  1=1 ,J1 

J= JJI - 1  — — - 

K  =  J-1 
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IBRA(J)=18RA(K) 

I BRA ( J7 ) = I  BRA ( J7) ♦ 1HRAN ( J8) 
IBRAN ( JB) =0 
IBRA(l)=I3AUS(i)=0 
UO  57  1=1*19 


J=1 7-1 
K  =  J-l 

57  1BAUSN ( J) = !  BAUSN (R ) 
UO  58  1=1* J9 
J=J7-I 


ipfgapi 


SB  1DKAN1 J) =1RRAN(K> 

C  OPERATION  18 

1 BRAN  l  1  )  =  i  B  AUSN  t  1)  =0 

UjAUS  U  )  ■  WPNDPL »N£ W  (NT)  *>HAUS*»S _ _ 

A=1BAUS( 1 ) 

1  HR  A l l ) =  RPNOPL<*Nt:w (Nt ) -X*.S 
1HAUSN  (  I  )  =iMt  W  <N  I  )  *>RAOs-<*  .6 

1  HP  AN  (  1  )  *Ntw'(NI  >'-ldnUS  (  1  )  -liiUA  (  1  )  -IBAUSiNt  1  ) 
C  OPERA  I  ION  18.1 

_ 00  b9  1»1 « 1 1 _ 

J=lll-I 
K  =  J-1 

V>9  lin.lDSI  J)  =1NK  10b(K) 

IKE 1  US ( 1 1 ao 
00  60  l=l.Jl 

QaUJl-1 _ 

l\  =  J-l 

60  1RKTHM  J)  =IRETRA  IK) 

_ IRE.  1  RA  (J  )  ag _ 

C  Ol'tHAUON  1S» 

C  RE  TURN  AOS  FROM  COMRLt ItO  ST 

_ 00  61  I»l, il _ 

JIM 

61  1 Rt 1  US ( J ) = I RETUS ( J) ♦ I  AOS ( 1 * 12) 

C  RETURN  RA  FROM  COMRLtTtJl_SX _ iL 

00  62  1=1 .01 
J=  I  ♦  1 

62  IRETRA  t J)  ■1HE1RA(J)  ♦l‘TA<l»  lid! _ 

C  OPERATION  20 

C  UP0AIE  COLUMNS  OF  1AUS. 

_ 00  **  uun _ _ 

o= I  1-1 
K  =  J-1 

_ 00  64  L«) >LAUS _ 

6A  1AUSU.  »  Jl  =  lAUS(L.N) 

C  OROAlF.  COLUMNS  OF  IRA 
_  00  6$  l^l’LRA 

63  IRA  (L.  J)  =1RA  (I.  ,K) 

63  CONTINUE 

_ 00  66  I » 1 » 1 1  _ 

0=111-1 
K  =  J-1 

C  OPERATION  j?l _ 

C  OPOAIF  ROWS  OF  lAUS. 

00  66  L=  1  «  1 2 

66  IAUS(  J.L)  =1AUS(K*JL2 _ 

C  OPOAIF.  ROWS  OF  IRA. 

00  6 f  1=1, Jl 

_ JaJJl-_l _ 

r= j-  r 

DO  bT  L= l *  12 

67  IRA  ( J,L)  *  IRA  (K,L)  _  _ _  _ 

C  CLf:aR  1ST  COLUMN  AND  1 S I  ROW  OF  1AUS  AND  IRA. 

00  68  1=1,12 

68  IRA  (l  ,  I )  a  1  AOS  ( 1  ,  l)«l) _ 

DO  t,9  1 a  l  ,L  AUS 

69  1  AOS ( 1 » 1 ) »0 

DO  1 0  l=l«LHA _ 

TO  1 RA ( 1 . 1 ) =0 
C  OPERA  1  ION  22 

c  cowrote  number  in  short  tour. 

I  Sli  i) 
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OU  71  1  =  1*  L  AUS 
UO  7 1  J= 1  *  1 2 


71 

1SI  =  IST*1 AUS ( I «  J) 

00  72  1=1. LRA 

72 

UO  72  J= 1 , 12 

1ST=1ST ♦ IRA ( 1 , J) 

c 

operation  23 

c 

COMPUTt  replacements  NEEDED. 

nEEL)S=  I  QU3T  (NT  )  -  1ST 

IF (NEEDS) 73*73.74 

73 

NEEL)S  =  0 

GO  TO  99 

74 

CONI INUE 

R=1  .-WTNOPL 

c 

OPERATION  24 

c 

NEW 

TRAINEES  used  for  SHORT  TOUR 

REPLACEMENTS 

1X=RN»IBA0SN(2) 

IF  ( I  X-NEEOS ) 160,161*161 

IM 

IB aUSN  ( 2  1  =  18  AUSN  (2  >  “NEEDS 

• 

lAUSt 2.1>=1 AUS 12,1) ♦NEEDS 

NEEl)S=0 

GO  TO  99 

160 

NEEOS= NEEDS- IX 

1  AUS ( 2 , 1 ) =IAUS(2*1>  ♦  I X 

I B AUSN (21= I 8 AUSN (2 ) “I X 

1  X  =  KNi>  1  BRAN  ( 2 ) 

IF  ( IX-NEEDS) 162,163.163 

JJ>3 

I  BRAN (2)  =  I BRAN (2) -NEEOS 

IRA (2,1) = IRA (2,1) ♦NEEDS 
NEEOS=0 

GO  TO  99 

162 

NEtUS= NEEDS- IX 
1RA(2*1)=IRA(2,1)+IX 

IBRAN ( 2 ) =IBRAN(2)-IX 

C 

OTHER  ASSEIS  (THAN  NEW  TRAINEES) 

used  as  replacements  for  short  Tour 

DO  7S  1=1*12 

J=J7- I 

X=IHRAN(J)<*R 

I  x  =  x 

IF  (IX- NEE OS 176.77.77 

77 

TBRaN (J) =T  tTR  a  n (JT-nEEuS 
IRA(J.l) =IRA(J,1) +NEEOS 
N£EDS=0 

7  6 

NEEDS  =NEEDS-IX 

IRAtJ.l >=IRA(J,1) *IX 

7s  TBITa  rJTJT=TB RAN  ( J I  - 1 X 
UO  78  1=1*110 
J= 1 7-  1 


X=1BaUSN( J)*R 
IX  =  X 

IF  ( IX-NEEDS)  79*80*80 


80 

IBAUSNt J) =IBAUSN(J) -NEEOS 

I AUS (J* 1 ) = I AUS ( J , 1 > +NEEDS 

NEEUS=0 

GO  TO  99 

79 

NEEUS= NEEDS- IX 

IBaUSN(J)=IBAUSN(J)-Ix 

IAUS(J*1)=IAUS(J*1)+IX 

X=IbRAN( J)«H 

1X  =  X 

IF  (IX-NEEDS)  81*82*82' 
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82  l BKA.m  (  J)  = 1BHAN1 J) -NtEOS 
1 R  A  ( J  *  1 ) =IHA ( J, 1 ) ♦NtEuS 
NEEOS=0 

UO  10  99 

bl  NEEUS-NEEDS-IX 

1BRAN  (  J)  =  I  BRAN  (  J )  —  1  X 

_ 78_  _ 

C  OPERATION  25 
99  X=NEEOS 
NE0E=NEE0S 

ISUM=l  3AUSf2)  *  I8HA  (2) 

JSUM= I AUS (2*1) ♦ I  HA ( 2  *  1 ) 

_ Y  =  X  /  « ft? _ 

YT=L  T  ♦  1 

Z  =  Y/  <  < 1 .-RPNUPL) » ( 1 .-.065/12.*YT) *RCCPL> 

_ NttvUNT  ) =Z» .5 _ 

NNE*»=HCCPL*NEEW  (NT)  *(i  . 065/ 12 . * Y T )  ♦  .5 
N|)L=NNEW-NEEDS 

_ Y  )  =HAQS<>NDL»  .5 _ 

I BAUS ( 2 ) =  I  BAUS ( 2 ) ♦ Y l 
IbKA (?) =1  BRA (2) ♦NOL-Yi 

1Y=X»RAUS*.5 _ 

I AUS (  2  . 1 ) = I AUS (2.1)  ♦  1 Y 
IRA  (2. 1  )  =IHA  (2. 1  )  +NtEi)S-lY 

_ jU5tiN£w,-i3AU,SJ.2-),-lbdA.C^-ZlALLS_l2jXl.rIHA-12rl)  *1SU!T*  JSUM 

1X  =  XX 

LNtW=R4US*XX*.5 

_ IB AUSN ( 2 ) =1 BAUSN ( 2) ♦LnEW  _ _ 

1 BRAN ( 2 ) =IX-LNEW.IBHAN(2) 

DO  83  1=1.12 

_ HR A ( 1 ) =  MAUS ( l)=0 _ 

UO  84  J= 1 . LAUS 

84  MAUS( I ) =MAUS( I ) *1 AUS ( J. I) 

_ UO  83  J=  I  . LRA  _ _ 

83  MRA ( I ) =MR A { I) + I R A ( J . I ) 

JSI  =0 

UO  85  I=1A12 _ _ _ _ _ 

85  JS I = JST .M9A  U ) +MAUS ( I ) 

JRET»0 

_ UO  8  b  1  =  1  .LAOS _ _ _ 

86  JrO = JR£  T  ♦  1  HE  TUS  ( I ) 

UO  87  1=1. LRA 

87  JRt 1 = JRE T  «■  1  RE T R A  (  l ) _ _ 

1 PNOPL=0 

UO  88  1=1 .LAUS 

_ 88  1PNUPL  =  1PNUPL*  IB  A  l  iS_(  Ij _ _ _ 

00  89  1=1 ,LRA 
b9  I RNOPL  =  I PNUPU* I8RA ( I ) 

NOTH  =  0 

- DU'9o  T=T.T8 - : - * - 

90  NOTHcNOTH. IBAUSNI I) 

00  91  1=1 . J8 

91  N01H  =  i\l0TH.IBRAlTnT~ 

JTOT=JST* JHET. IPNOPL+NOTH 
UO  92  1=1 , LAUS 

lAUSMT  (  IT=0 
00  92  J=1 *  12 

92  1AUSHT  t  I)  =1AUSMT  (  [  )  *IaUS<  I  » J) 

1)0  9J  1  =  1. LRA 

iram  r ( i >  =  0 

_ UO  93  J=1 .12 _ _ 

V3  1 R  AM  T ( I) * l PAM  T ( I) ♦ 1HA ( I . J) 


28 


C  OPERATION  26 

C  IF  PRInIER  CU\MROL  =  2*PRlNT  r UUR-EXPER I EnCE  U I S TR IBUT ION . 

IF ( JUMP1-2) 192,193,192 

193  PRINT  111.  SAMP _  _ 

PRINT  301, NT 
PRINT  320  *NKAS 

320  FORMAT ( 14H0CASUALT ItS=  15) 
pHlNf  321 , NL 

321  FORMAT (19HuOTHER  ATTRlTION=  15) 

PRINT  322, 10U  T 

322  FORMA  T(  30 HONUMBER  END  iTiG  COMMITMENTS  15) 

PRINT  302 

PRINT  303, l ( IAUS ( 1 , J) ,J=1,12) ,I=1,LAUS) 

PRINT  304 

PRINT  303, ( (IRA (I, J) ,3=1,12) ,1=1, ERA) 

C  IF  PRINTER  CON T ROL  =  1  PRINT  MONTHLY  TOURS. 

- 192  TR  JUMP  1  )7j77T3/*  300  ' 

300  PRINT  311,  SAMP 

_ PR1N T  301 , NT _ 

30 1  FORMAT (7H0MONTH  IB) 

PRINT  302 

_ 3o2  FORMAT  (16H0AUS  SHOR  T  TOUR _ ) _ _  _ _ 

P  R 1  NT  30  3 .  ( M A  U S (I) ,1  =  1  , 12 ) 

3o3  FORMAT ( 1 H  1218) 

_ PRINT  304 _ 

30*  FORMAT (IbHoRA  SHORT  TOUR  > 

PRINT  303, (MRA ( I ) , 1=1 , 12) 

_ PR  1 N  T_3 05__ _ _ _ 

305  FORMAT ( 1630 AUS  RETURNEES  ) 

PRINT  303, I IRETUS(I) , 1=1 ,LAUS> 

_ PRJNT_3J)6 _ _ ; _ 

306  FORMAT l 16 MORA  RETURNEES  “5 

PRINT  303,  ( IRETRA(I) ,T=1,LRA) 

PRINT  307 

307  FORMAT (40H0AUS  PEOPLE  WITH  NO  SHORT  TOUR  HISTORY  ) 

PRINT  303* ( lOAUSN ( I ) , T=1 ,LAUS) 

PRINT  308 

308  FORMAT  (40 HO  RA  PEOT^UET  wTTTT NO- ShUrT  TOTTR- h I STORy  T 

PRINT  303, (IBR AN  (I), 1  =  1  ,LRA) 

PRINT  309 

To $“7 OR m  A  TTXoT 0  AUS  P FRmaNe n T  nOnDTPUJYabLES  J 

PRINT  303, t IBAUS (I) , 1=1 , LAOS) 

PRINT  310 

- ~3T0 ~  F  OR  H  A  TO  OTRrRJr  PERM  aN ETKiT  RCJNlfEP'C'UYA BL t  S - ) - 

PRINT  303, (IBRA(l) ,1=1 ,LRA) 

PRINT  312 

- pH1Nr  3i>3 - 

PRINT  313,NT,NKAS,NL, TOUT, NEW (NT) , 1PNDPL, JRET ,JST,NOTH,JTOT,NEOE,N 
1EEW(NT) , NNEW 
313  FORMAT (1H<  19,12110) 

I  3  7  CONTINUE 

C  IF  PRINTER  CUMTROL=0,  PRINT  SUMMARY  LINE. _ _ _ 

IF (JUMP! ) 1 00*317*100 

317  PRINT  31 3, NT, NK AS, NL, TOUT, NEW (NT) , IPNDPL , JRET , JST , NOTH , JTO T , NEOE , N 

_ IE Ew  (N T)  ,  NNEW _ _ _ 

100  CONTINUE 

00  503  1=1,24 
J= I *L  T ♦ 1 

- 503  NEtwUr=NEEwT7J - 

PRINT  504 

504  FORMAT (50R0AOUI TIONAL  TRAINEES  AT  MONTH  OF  ENTRY  TO  AIT  ) 

■  PhInTTOJ',!  nfXwTT)  ,I  =  i,2a  j 


oo  ro  ioi 

HO  PRINT  142*  SAMP 

142  FORMAT ( «H I  SAMPLE  Aa.<»9H  PRESENTS  PROBLEMS  N01  IN  THE  SCOPE  OF  THE 
1  MOUEL  1 

00  TO  101 
999  STOP 
END 
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APPENDIX  A-2.  SAMPLE  PROBLEM,  WITH  ILLUSTRATIVE  TABLES 

Sample  Input  used  for  the  sample  problems  is  listed  below.  The  two 
batch  cards  for  the  output  shown  were:  Card  1,  the  format  used  by  the 
computer  to  read  card  2  of  the  sample  cards  (5XF5.3, 5XF5.3)  and  Card  2, 
the  temporary  monthly  nondeployability  factor  for  trainees  not  sent  to 
short  tour  directly  after  AIT  school,  for  this  example  cols  8-10  and  18-20 
contained  88l . 

Data  were  punched  in  the  sample  cards  as  follows 


Sample  Cards 


Fields 


1 

2 

1-6 

000 

000 

7-12 

726 

5956 

13-18 

388 

6919 

19-24 

186 

7918 

25-30 

444 

8058 

31-36 

5956 

8O58 

37-42 

398 

27 

43-48 

186 

49-54 

61 

55-60 

13 

3  4 

000  000 

7358  628 

5259  618 

7800  820 


3797  Blank 


0  for  sunmary  only 

1  for  starting  matrices 
and  monthly  vectors 

2  for  monthly  matrices 
and  vectors 


61-66 


17082 


Blank 


Table  A-2(l).  SUMMARY  SHEET 


Sample  computer  output  appears  in  Tables  A-2(l),  (2),  and  (3). 

Table  A-2(l)  is  the  summary  sheet  obtained  if  a  zero  is  put  in  column  55, 
card  2  of  the  sample  data  cards  appearing  in  Step  2  of  the  flow  chart 
(Figure  4  of  the  main  report).  An  explanation  of  the  meaning  of  the 
column  headings  and  the  line  at  the  bottom  of  the  table  follows: 

(1)  Month  Month  of  projection  from  the  starting  inventory 

(2)  CAS  Number  of  casualties  lost  from  the  short  tour 

(3)  OTH  ATTN.  Other  attrition  losses  from  all  parts  of  the  system 

(4)  END  TERM.  Number  of  people  ending  their  first  enlistment  and 

leaving  the  system 

(5)  SCHD  INPT.  Scheduled  input:  historical  record  of  trainees  scheduled 

to  enter  the  system  in  the  next  few  months  and  planned 
input  for  the  more  distant  part  of  the  projection 

(6)  PERM  NDPL.  Permanently  nondeplcyable :  sum  of  hard  core  nondeplcy- 

able  and  those  nearing  the  end  of  their  enlistment 

(7)  RET.  Returnees  from  the  short  tour  who  have  not  finished  their 

enlistment 

(8)  IN  ST.  Total  number  actually  in  short  tour 

(9)  W/0  ST.  All  besides  permanently  nondeplcyable  who  have  not  yet 

been  to  short  tour 

(10)  SYST  TOT.  Grand  total  of  all  people  in  the  system 

(11)  ST  INPT.  Additional  replacements  required  by  short  tour  besides 

those  available  from  scheduled  input  and  existing  assets 

(12)  AIT  INPOT.  Gross  number  required  to  be  started  to  MOS  school  to 

furnish  the  net  of  ST  INPT 

(13)  MODEL  INPT.  Number  used  by  the  model  to  furnish  ST  INPT.  Model 

starts  with  AIT  output 

(14)  Additional  trainees  at  month  of  entry  to  AIT  -  Gross  number  started 

to  AH  (col.  12)  set  back  by  the  length  of  the  AIR  school  plus 
one  month,  to  allow  for  leave  before  assignment  to  short  tour 


-  32  - 


SUMMARY  SHEET 
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Table  A-2(2).  SAMPLE  OUTPUT 
(Monthly  Vectors) 


Table  A-2(2)  is  a  sample  of  output  for  a  month  if  a  1  is  put  in 
column  55  of  card  2.  Explanation  of  the  meaning  of  the  row  headings 
and  summary  line  is  given  below. 


(1)  A US  SHORT  TOUR  A  vector  12-months  long  showing  the  length  of  stay 

in  short  tour  (and  the  replacement  schedule). 

This  vector  is  actually  the  border  sums  of  matrix 
IAUS(I,J)  summed  over  I 

(2)  RA  SHORT  TOUR  Same  as  (l)  for  IRA 

(3)  A US  RETURNEES  A US  people  who  have  returned  to  base  from  short  tour. 

The  position  in  the  vestor  denotes  tte  time  already 
served  in  the  enlistment  term.  (Since  the  model 
starts  with  basic  training  and  MOS  training  already 
accomplished,  the  duration  of  commitment  for  A US 
people  is  24 -2 -Iff  where  Iff  is  the  duration  of  AIT, 
in  the  example,  24-2-2  or  20  months.) 

(4)  RA  RETURNEES  Same  as  (3)  for  RA  people 

(5)  AUS  PEOPLE  WITH  NO  SHORT  TOUR  HISTORY  Self-explanatory;  position 

in  vector  gives  position  in 
enlistment 

(6)  RA  PEOPLE  WITH  NO  SHORT  TOUR  HISTORY  Same  as  (5)  for  RA  people 

(7)  AUS  PERMANENT  NQNDEPLQYABLES  Position  in  vector  gives  duration  of 

service.  Includes  people  from  (5) 
who  are  nearing  the  end  of  their 
service. 

(8)  RA  PERMANENT  NONDEPLOYABLES  Same  as  (7)  for  RA 

(9)  Line  of  summary  table  described  inthe  section  about  Ihble  A-2(l). 


(Monthly  Vectors) 
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Table  A-2(3).  SAMPLE  OUTPUT 
(Starting  Matrices) 


Table  A-2(3 )  shows  the  starting  data  after  the  inventory  has  been 
spread  into  workable  position  for  projection  by  the  computer.  The  same 
information  is  shown  here  as  in  Table  A-2(2)  except  that  the  full  IAUS 
and  IRA  matrices  are  shown  instead  of  the  column  sums.  No  summary  line 
appears  to  parallel  (9)  in  Table  A-2(2).  Instead,  vectors  appear  showing 
the  scheduled  monthly  input  (after  completed  AIT)  and  the  short  tour 
quotas.  This  starting  information  is  output  with  the  use  of  a  1  or  2  in 
col.  55  of  card  2.  If  a  2  is  used,  the  full  IAUS  and  IRA  matrices  are 
output  for  each  month  of  the  projection.  These  are  useful  for  understand¬ 
ing  the  process  of  projection,  but  are  bulky  and  time  consuming.  The 
summary  sheet  (Table  A-2(l)  contains  the  information  essential  for  most 
analyses . 
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Table  A-2(3) 

SAMPLE  output 
(Full  Matrices) 

MOS  00  STARTING  POSITION 


(1)  AUS  SHORT  TOUR 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

216 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

216 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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0 
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0 
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0 

0 

0 

48 
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0 
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0 
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0 

0 

0 

0 

0 

0 

0 

0 

49 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

49 

104 

104 

104 

104 

104 

153 

153 

162 

162 

163 

163 

162 
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Table  A -2(3)  continued 


(3)  ALE  RETURNEES 


(4)  RA  RETURNEES 


(5)  AUS  PEOPIE  WITH  NO  SHORT  TOUR  HISTORY 


(6)  RA  PEOPLE  WITH  NO  SHORT  TOUR  HISTORY 


(7)  AUS  PERMANENT  NONDEPLOYABIES 


(8)  RA  PERMANENT  NONDEPLOYABIES 


(9)  SCHEDULED  MONTHLY  INPUT 


(10)  MONTHLY  QUOTAS  FOR  SHORT  TOUR 


